/* GUI CONVERTED from rcrp03a.p (converter v1.76) Fri May  3 13:21:36 2002 */
/* rcrp03a.p - Release Management Customer Schedules                          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.5.1.4 $                                                         */
/*V8:ConvertMode=Report                                                       */
/* REVISION: 7.3    LAST MODIFIED: 01/05/93           BY: WUG *G462*          */
/*                                 08/27/94           BY: BCM *GL61*          */
/* REVISION: 7.3    LAST MODIFIED: 10/25/94           BY: rxm *GN17*          */
/* REVISION: 7.3    LAST MODIFIED: 03/22/95           BY: aed *G0J0*          */
/* REVISION: 7.3    LAST MODIFIED: 10/07/95           BY: vrn *G0YL*          */
/* REVISION: 8.5    LAST MODIFIED: 10/25/95           BY: dpm *J044*          */
/* REVISION: 8.5    LAST MODIFIED: 10/15/96           BY: *G2GJ* Ajit Deodhar */
/* REVISION: 8.6    LAST MODIFIED: 10/07/97           BY: bvm *K0MK*          */
/* REVISION: 9.1    LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane     */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00   BY: *N0KP* Mark Brown           */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* Revision: 1.5.1.3     BY: Jean Miller      DATE: 03/22/01  ECO: *P008*     */
/* $Revision: 1.5.1.4 $    BY: Katie Hilbert    DATE: 04/15/02  ECO: *P03J*     */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* SCHEDULE AUTH SUMMARY SUBPROGRAM */

/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

{mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

{wbrp02.i}

define input parameter sod_recid as recid.

define variable l_desc1  like pt_desc1   no-undo.
define variable impexp   like mfc_logical no-undo.

{rcordfrm.i}

FORM /*GUI*/ 
   {rcordfma.i}
with STREAM-IO /*GUI*/  frame prm side-labels width 80 attr-space.

/* SET EXTERNAL LABELS */
setFrameLabels(frame prm:handle).

find sod_det where recid(sod_det) = sod_recid no-lock no-error.

find scx_ref where
     scx_type = 1 and
     scx_order = sod_nbr and
     scx_line = sod_line
no-lock no-error.

find si_mstr where si_site = scx_shipfrom no-lock no-error.
find ad_mstr where ad_addr = scx_shipto no-lock no-error.
find pt_mstr where pt_part = scx_part no-lock no-error.

if available pt_mstr then
   l_desc1 = pt_desc1.
else if available sod_det then
   l_desc1 = sod_desc.
else
   l_desc1 = "".

display
   scx_shipfrom
   scx_shipto
   ad_name         when (available ad_mstr)
   scx_part
   l_desc1         @ sod_desc
   scx_po          when (available scx_ref)
   scx_custref     when (available scx_ref)
   scx_modelyr     when (available scx_ref)
   pt_um           when (available pt_mstr)
   scx_order
   scx_line
with frame prm STREAM-IO /*GUI*/ .

{wbrp04.i}
